home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh47a.d64 / demo 4 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  523b  |  25 lines
  1. 10 LINE=49152
  2. 20 HARDCOPY=49155
  3. 30 CLEAR=49158
  4. 40 SYS CLEAR
  5. 50 A=20:TX=480:TY=1500
  6. 100 FOR T=90/A TO 90 STEP 90/A
  7. 110 X=COS(T/180*(null))* 475
  8. 120 Y=SIN(T/180*(null))*1495
  9. 130 :
  10. 140 SYS LINE,1,TX+X,TY+Y,TX-X,TY-Y
  11. 150 SYS LINE,1,TX+X,TY-Y,TX-X,TY+Y
  12. 160 :
  13. 170 SYS LINE,1,TX+X,TY+Y,TX-X,TY+Y
  14. 180 SYS LINE,1,TX-X,TY+Y,TX-X,TY-Y
  15. 190 SYS LINE,1,TX-X,TY-Y,TX+X,TY-Y
  16. 200 SYS LINE,1,TX+X,TY-Y,TX+X,TY+Y
  17. 210 :
  18. 220 SYS LINE,1,TX+X,TY,TX,TY+Y
  19. 230 SYS LINE,1,TX,TY+Y,TX-X,TY
  20. 240 SYS LINE,1,TX-X,TY,TX,TY-Y
  21. 250 SYS LINE,1,TX,TY-Y,TX+X,TY
  22. 260 :
  23. 270 NEXT
  24. 300 SYS HARDCOPY,3000
  25.